#lang racket

(require "stream-basics.rkt")

(define (add-streams s1 s2)
  (stream-map + s1 s2))

(define s (cons-stream 1 (add-streams s s)))

(define first-ten-s (stream-take 10 s))

(display-stream first-ten-s)